home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPCP02.ZIP / PWRBALL2 / CHECKPIK.PPD next >
Encoding:
Text File  |  1995-11-15  |  9.5 KB  |  363 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.10 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     STRING     VAR005
  15.     STRING     VAR006
  16.     BYTE       VAR007
  17.     BYTE       VAR008
  18.     BYTE       VAR009
  19.     BYTE       VAR010
  20.     BYTE       VAR011
  21.     BYTE       VAR012
  22.     BYTE       VAR013
  23.     BYTE       VAR014
  24.     BYTE       VAR015
  25.     BYTE       VAR016
  26.     BYTE       VAR017
  27.     BYTE       VAR018
  28.     BYTE       VAR019
  29.     BYTE       VAR020
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     CLS 
  34.     PRINTLN ""
  35.     PRINTLN ""
  36.     PRINTLN "@X09                 POWERBALL PICK WINNERS DISPLAY FILE BUILDER@X07"
  37.     PRINTLN ""
  38.     PRINTLN "@X0F   Enter Date , Example:8-22-94 or 11-6-95 (Note no leading Zeros)"
  39.     INPUTSTR "Date of Lotto Pick you are Checking?",VAR002,10,8,"1234567890"+"-",DEFS
  40.     IF (!EXIST(PPEPATH()+"CHECKPIK.CFG")) GOTO LABEL042
  41.     ;IF (EXIST(PPEPATH()+STRING(VAR002))) GOTO LABEL042
  42.  
  43. :LABEL000
  44.     INPUTSTR "Enter First Number Drawn ",VAR013,7,2,"1234567890",LFBEFORE
  45.     INPUTSTR "Enter Second Number Drawn ",VAR014,7,2,"1234567890",LFBEFORE
  46.     INPUTSTR "Enter Third Number Drawn ",VAR015,7,2,"1234567890",LFBEFORE
  47.     INPUTSTR "Enter Fourth Number Drawn ",VAR016,7,2,"1234567890",LFBEFORE
  48.     INPUTSTR "Enter Fifth Number Drawn ",VAR017,7,2,"1234567890",LFBEFORE
  49.     INPUTSTR "Enter the POWERBALL that was Drawn ",VAR018,7,2,"1234567890",128+64
  50.     PRINTLN ""
  51.     PRINTLN "@X0BYOU ENTERED...@X07",+STRING(VAR013)+" ",+STRING(VAR014)+" ",+STRING(VAR015)+" ",+STRING(VAR016)+" ",+STRING(VAR017)+"@X0C ",+STRING(VAR018)
  52.     INPUTSTR "ARE THESE NUMBERS CORRECT?  (Y)es or (N)o",VAR001,10,1,"YN",16384+2
  53.     IF (VAR001="N") GOTO LABEL000
  54.     FOPEN 2,PPEPATH()+"CHECKPIK.CFG",O_RD,S_DN
  55.     FGET 2,VAR003
  56.     FCLOSE 2
  57.     PRINTLN ""
  58.     PRINTLN ""
  59.     PRINTLN "@X0B   BUILDING WINNERS DISPLAY FILE  ",VAR003,"  PLEASE WAIT....."
  60.     FCREATE 3,VAR003,O_WR,S_DN
  61.     FPUTLN 3
  62.     FPUTLN 3,"@CLS@"
  63.     FPUTLN 3
  64.     FPUTLN 3,"                @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X07"
  65.     FPUTLN 3,"                @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│@X07"
  66.     FPUTLN 3,"                @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X07"
  67.     FPUTLN 3,"@X07             @X0EDID YOU PLAY THE POWERBALL NUMBERS SHOWN TO YOU HERE@X0D??"
  68.     FPUTLN 3,"           @X0BTHESE CALLERS ARE WINNERS IF THEY PLAYED THEIR NUMBERS@X0C!!!"
  69.     FPUTLN 3,"     @X09DRAWING DATE....@X0C",+STRING(VAR002)," @X09        WINNING NUMBERS ....@X0F ",+STRING(VAR013)+" ",+STRING(VAR014)+" ",+STRING(VAR015)+" ",+STRING(VAR016)+" ",+STRING(VAR017)+"@X0C ",+STRING(VAR018)
  70.     FPUTLN 3,"@X07-------------------------------------------------------------------------------"
  71.     FPUTLN 3,"@X0E@POS:18@NAME                            @POS:47@WINNINGS"
  72.     FPUTLN 3,"@X07-------------------------------------------------------------------------------"
  73.     FOPEN 1,PPEPATH()+STRING(VAR002),O_RD,S_DN
  74.  
  75. :LABEL001
  76.     LET VAR019=0
  77.     LET VAR020=0
  78.     FGET 1,VAR004
  79.     FGET 1,VAR005
  80.     IF (FERR(1)) GOTO LABEL039
  81.     TOKENIZE VAR005
  82.  
  83. :LABEL002
  84.     IF (!(TOKCOUNT()>0)) GOTO LABEL003
  85.     LET VAR007=GETTOKEN()
  86.     LET VAR008=GETTOKEN()
  87.     LET VAR009=GETTOKEN()
  88.     LET VAR010=GETTOKEN()
  89.     LET VAR011=GETTOKEN()
  90.     LET VAR012=GETTOKEN()
  91.     GOTO LABEL002
  92.  
  93. :LABEL003
  94.     IF (!(VAR013=VAR007)) GOTO LABEL004
  95.     LET VAR019=VAR019+1
  96.     GOTO LABEL008
  97.  
  98. :LABEL004
  99.     IF (!(VAR013=VAR008)) GOTO LABEL005
  100.     LET VAR019=VAR019+1
  101.     GOTO LABEL008
  102.  
  103. :LABEL005
  104.     IF (!(VAR013=VAR009)) GOTO LABEL006
  105.     LET VAR019=VAR019+1
  106.     GOTO LABEL008
  107.  
  108. :LABEL006
  109.     IF (!(VAR013=VAR010)) GOTO LABEL007
  110.     LET VAR019=VAR019+1
  111.     GOTO LABEL008
  112.  
  113. :LABEL007
  114.     IF (!(VAR013=VAR011)) GOTO LABEL008
  115.     LET VAR019=VAR019+1
  116.     GOTO LABEL008
  117.  
  118. :LABEL008
  119.     IF (!(VAR014=VAR007)) GOTO LABEL009
  120.     LET VAR019=VAR019+1
  121.     GOTO LABEL013
  122.  
  123. :LABEL009
  124.     IF (!(VAR014=VAR008)) GOTO LABEL010
  125.     LET VAR019=VAR019+1
  126.     GOTO LABEL013
  127.  
  128. :LABEL010
  129.     IF (!(VAR014=VAR009)) GOTO LABEL011
  130.     LET VAR019=VAR019+1
  131.     GOTO LABEL013
  132.  
  133. :LABEL011
  134.     IF (!(VAR014=VAR010)) GOTO LABEL012
  135.     LET VAR019=VAR019+1
  136.     GOTO LABEL013
  137.  
  138. :LABEL012
  139.     IF (!(VAR014=VAR011)) GOTO LABEL013
  140.     LET VAR019=VAR019+1
  141.     GOTO LABEL013
  142.  
  143. :LABEL013
  144.     IF (!(VAR015=VAR007)) GOTO LABEL014
  145.     LET VAR019=VAR019+1
  146.     GOTO LABEL018
  147.  
  148. :LABEL014
  149.     IF (!(VAR015=VAR008)) GOTO LABEL015
  150.     LET VAR019=VAR019+1
  151.     GOTO LABEL018
  152.  
  153. :LABEL015
  154.     IF (!(VAR015=VAR009)) GOTO LABEL016
  155.     LET VAR019=VAR019+1
  156.     GOTO LABEL018
  157.  
  158. :LABEL016
  159.     IF (!(VAR015=VAR010)) GOTO LABEL017
  160.     LET VAR019=VAR019+1
  161.     GOTO LABEL018
  162.  
  163. :LABEL017
  164.     IF (!(VAR015=VAR011)) GOTO LABEL018
  165.     LET VAR019=VAR019+1
  166.     GOTO LABEL018
  167.  
  168. :LABEL018
  169.     IF (!(VAR016=VAR007)) GOTO LABEL019
  170.     LET VAR019=VAR019+1
  171.     GOTO LABEL023
  172.  
  173. :LABEL019
  174.     IF (!(VAR016=VAR008)) GOTO LABEL020
  175.     LET VAR019=VAR019+1
  176.     GOTO LABEL023
  177.  
  178. :LABEL020
  179.     IF (!(VAR016=VAR009)) GOTO LABEL021
  180.     LET VAR019=VAR019+1
  181.     GOTO LABEL023
  182.  
  183. :LABEL021
  184.     IF (!(VAR016=VAR010)) GOTO LABEL022
  185.     LET VAR019=VAR019+1
  186.     GOTO LABEL023
  187.  
  188. :LABEL022
  189.     IF (!(VAR016=VAR011)) GOTO LABEL023
  190.     LET VAR019=VAR019+1
  191.     GOTO LABEL023
  192.  
  193. :LABEL023
  194.     IF (!(VAR017=VAR007)) GOTO LABEL024
  195.     LET VAR019=VAR019+1
  196.     GOTO LABEL028
  197.  
  198. :LABEL024
  199.     IF (!(VAR017=VAR008)) GOTO LABEL025
  200.     LET VAR019=VAR019+1
  201.     GOTO LABEL028
  202.  
  203. :LABEL025
  204.     IF (!(VAR017=VAR009)) GOTO LABEL026
  205.     LET VAR019=VAR019+1
  206.     GOTO LABEL028
  207.  
  208. :LABEL026
  209.     IF (!(VAR017=VAR010)) GOTO LABEL027
  210.     LET VAR019=VAR019+1
  211.     GOTO LABEL028
  212.  
  213. :LABEL027
  214.     IF (!(VAR017=VAR011)) GOTO LABEL028
  215.     LET VAR019=VAR019+1
  216.     GOTO LABEL028
  217.  
  218. :LABEL028
  219.     IF (VAR018=VAR012) LET VAR020=VAR020+1
  220.     IF ((VAR019=0)&(VAR020=0)) GOTO LABEL001
  221.     IF (!((VAR019=0)&(VAR020=1))) GOTO LABEL029
  222.     LET VAR006="$1.00"
  223.     GOTO LABEL038
  224.  
  225. :LABEL029
  226.     IF (!((VAR019=1)&(VAR020=1))) GOTO LABEL030
  227.     LET VAR006="$2.00"
  228.     GOTO LABEL038
  229.  
  230. :LABEL030
  231.     IF (!((VAR019=2)&(VAR020=1))) GOTO LABEL031
  232.     LET VAR006="$5.00"
  233.     GOTO LABEL038
  234.  
  235. :LABEL031
  236.     IF (!((VAR019=3)&(VAR020=0))) GOTO LABEL032
  237.     LET VAR006="$5.00"
  238.     GOTO LABEL038
  239.  
  240. :LABEL032
  241.     IF (!((VAR019=3)&(VAR020=1))) GOTO LABEL033
  242.     LET VAR006="$100"
  243.     GOTO LABEL038
  244.  
  245. :LABEL033
  246.     IF (!((VAR019=4)&(VAR020=0))) GOTO LABEL034
  247.     LET VAR006="$100"
  248.     GOTO LABEL038
  249.  
  250. :LABEL034
  251.     IF (!((VAR019=4)&(VAR020=1))) GOTO LABEL035
  252.     LET VAR006="$5,000"
  253.     GOTO LABEL038
  254.  
  255. :LABEL035
  256.     IF (!((VAR019=5)&(VAR020=0))) GOTO LABEL036
  257.     LET VAR006="$100,000"
  258.     GOTO LABEL038
  259.  
  260. :LABEL036
  261.     IF (!((VAR019=5)&(VAR020=1))) GOTO LABEL037
  262.     LET VAR006="JACKPOT!!!"
  263.     GOTO LABEL038
  264.  
  265. :LABEL037
  266.     GOTO LABEL001
  267.  
  268. :LABEL038
  269.     FPUTLN 3,"@X0A@POS:13@",VAR004,"@X0F@POS:53@",VAR006
  270.     GOTO LABEL001
  271.  
  272. :LABEL039
  273.     PRINTLN "                                @X0A....DONE!"
  274.     PRINTLN "@X0F      THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE  "
  275.     IF (VAR006="") GOTO LABEL040
  276.     FPUTLN 3
  277.     FPUTLN 3,"@X09        THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
  278.     FPUTLN 3,SPACE(14),"@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
  279.     FPUTLN 3
  280.     FPUTLN 3
  281.     FPUTLN 3,"@WAIT@"
  282.     FCLOSEALL 
  283.     DELETE PPEPATH()+VAR002
  284.     DELAY 45
  285.     END 
  286.  
  287.  
  288. :LABEL040
  289.     FPUTLN 3
  290.     FPUTLN 3
  291.     FPUTLN 3
  292.     FPUTLN 3,"@X0A                                 NO WINNERS@X07"
  293.     FPUTLN 3
  294.     FPUTLN 3
  295.     FPUTLN 3
  296.     FPUTLN 3,"@X09        THANK YOU FOR USING POWERBALL PICK FROM LOWER LEVEL SOFTWARE"
  297.     FPUTLN 3,SPACE(14),"@X0FREGISTERED TO:@X0C @BOARDNAME@@X07"
  298.     FPUTLN 3
  299.     FPUTLN 3
  300.     FPUTLN 3,"@WAIT@"
  301.     FCLOSEALL 
  302.     DELETE PPEPATH()+VAR002
  303.     DELAY 45
  304.     END 
  305.  
  306.  
  307. :LABEL041
  308.     PRINTLN ""
  309.     PRINTLN "@X8C WARNING!@X07 NOT A VALID DRAWING DATE -OR- THIS PROGRAM IS UN-REGISTERED"
  310.     PRINTLN ""
  311.     PRINTLN ""
  312.     PRINTLN ""
  313.     WAIT 
  314.     END 
  315.  
  316.  
  317. :LABEL042
  318.     PRINTLN ""
  319.     PRINTLN "     ERROR---   CHECKPIK.CFG FILE IS MISSING......ABORTING"
  320.     END 
  321.  
  322.  
  323. ;------------------------------------------------------------------------------
  324. ;Statements used:
  325. ;
  326. ;     4 END
  327. ;     1 CLS
  328. ;     1 WAIT
  329. ;    78 GOTO
  330. ;    43 LET
  331. ;    19 PRINTLN
  332. ;    42 IF
  333. ;     1 FCREATE
  334. ;     2 FOPEN
  335. ;     1 FCLOSE
  336. ;     3 FGET
  337. ;    31 FPUTLN
  338. ;     2 DELETE
  339. ;     8 INPUTSTR
  340. ;     2 DELAY
  341. ;     1 TOKENIZE
  342. ;     2 FCLOSEALL
  343. ;
  344. ;Functions used:
  345. ;
  346. ;    13 +
  347. ;    45 +
  348. ;    48 =
  349. ;     1 >
  350. ;    37 !
  351. ;    10 &
  352. ;     2 SPACE
  353. ;     1 FERR
  354. ;    15 STRING
  355. ;     6 PPEPATH
  356. ;     6 GETTOKEN
  357. ;     2 EXIST
  358. ;     1 TOKCOUNT
  359. ;
  360. ;------------------------------------------------------------------------------
  361. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  362. ;------------------------------------------------------------------------------
  363.